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FACILITY: General Utility Library 
ABSTRACT: 


LIBSFIXUP_FLT fixes up floating reserved operands when a 
reserved Operand fault occurs so that the instruction nay 
may be continued. It is designed to be a condition handler 
or to be called from a condition handler. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 


AUTHOR: Thomas N. Hastings, Version 1, CREATION DATE: 06-AUG-1977 
Steven B. Lionel, | Version 2, CREATION DATE: 02-JAN-1980 
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5-006 DECLARATIONS © ¢ grSee1obe STioesie LeNORTE. caeacree txuor mar? oe dy 5-5 
9 ; -SBTTL DECLARATIONS 
6¢ ; LIBRARY MACRO CALLS: | 
64° FDEF : Stack frame symbols 
0 65 SCHFDEF ; Condition handling facility symbols 
0 66 SSTSDEF ; Status value symbols 
S ef ‘ SSSDEF ; System status values 
00 $9 ; EXTERNAL DECLARATIONS: 
09 71° -DSABL GBL : Force all external symbols to be declared 
f -EXTRN LIB$_BADSTA ; Bad stack frame 
00 7 XTRN LIBSSIG_TO_RET ; Convert signals to return status 
000 74 EXTRN LIBSGET-OPCODE ; Get debugger-modified opcode 
000 i EXTRN SYSSCALC_HANDL ; System routine that calls handlers 
000 5§ : MACROS | 
000 78; 
000 79 ; NONE 
0000 80 ; 
4 + ; EQUATED SYMBOLS 
00000000 0000 es ‘ RO_OFF = O#4 ; RO register offset in register image 
00000004 0000 4 R1_OFF = 124 3; R1 register offset 
00000030 0000 85 AP_OFF = 12%4 ; AP register offset 
00000034 0000 86 FP_OFF = 13%4 : FP register offset 
00000038 0000 87 SP_OFF = 1424 ; SP register offset 
0000003C 0000 88 PC OFF = 15%4 : PC register offset 
00000040 4 8 PSC_OFF = 16%4 ; PSL offset | 
00000044 0000 91 K_SAV_IMAGE_SIZ = 4*17 ; size of each image vector 
PErEP ge 000 3 REG_IMAGE ="-K_SAV_IMAGE_S1Z FP offset for image vector of registers 
FFFFFF 4 9 ADR-IMAGE = -<R_SAV_IMAGE_ SIZ>*2’; FP offset for image vector of addresses 
00 94 ; “where registers have been saved: in stack 
FFFFFFFC 0000 95 IMAGE_PSL = ~4 ; FP offset of PSL image 
FFFFFFF8 0000 96 IMAGE_PC = -8 s FP offset of PC image | 
33 
299 99 ; Define first byte of two oes opcodes for G and H. G instructions | 
00 100 ; are ffFD where ff is a F floating opcode and H instructions are 
000 101 : ddFD where dd is a D floating opcode. for example, POLYG is 55FD | 
0000 ! § 3 and POLYH is 75FD. 
000000F p 38 is G_H = *XFD : first G and H opcode byte | 
00000003 80 136 BPT = *x03 ; Opcode for BPT instruction | 
000 108 3; Define field in floating data types to test for reserved operand. 
0 110 S_FMZERO = 3 ; size for F 
111 V_FMZERO = 3 position for F | 
116 S-GMZERO = 12 ; size for G 
11 V_GMZERO = 4 ; position for G 
114 S_HMZERO = 16 ; size for H 
12 V_HMZERG = 0 3 position for H 
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5 006 DECLARATIONS ’ “ meets 1 90: OF Ie UTORTL. SREIL IGF IXUPF MAR: 1 ° (2) ~01 
117 ; Define codes used to denote operand types in opcode/operand tables 
118 3 to follow. 
00000 120 OP_2 = 0 3; No more operands to process 
1 121 OP_8 =] ; Byte 
§ 1 § OP_W = ¢ ; Word 
0 1 OP _F = : F floating 
0 4 124 OP_D = 4 ; D_floating 
00000005 125 OP_G = 5 : G_floating 
00000006 8 ! § OP_H = 6 3 H_floating 
88 ! 8 ; OWN STORAGE: 
° ob ° ° N, L, LCL, es; 
00000000 130 PSECT _LIBSCODE PIC, USR, CON, RE CL, SHR 
$3 EXE, RD, NOWRT, LONG 
000 133° 
000 134 ; Tables of opcodes and operand types, The first byte in each entry 
44 1355 ; is the opcode (or second byte of a 2-byte opcode). The remaining 
000 1 § ; bytes (up to 3) are OP_x codes defined above that specify what datatype 
000 137 ; each operand is for that instruction. If an operand type is 0, then 
009 : : ; no more operands are processed for that instruction. 
000 140 : These tables are binary searched so the opcodes must be in ascending 
0000 141 ; order and the entry addresses must be longword aligned. This Latter 
8000 196 3 requirement is met by having these tables be first in this module. 
0000 144 ; Table for single byte opcodes 
0000 145 SING_TAB: 
00 03 03 40 0000 146 -BYTE “X40, OP_F, OP_F, 0 3 ADDF 
00 03 03 41 0004 14 ~BYTE “X41, OP_F, OP_F, 0 3 ADDF 
00 0 *g 0008 148 -BYTE “X42, OP-F, OP-F, 8 3 eed 
00 0 43 000C 149 -BYTE *X43, OPIF, OP@F, > SUBF 
00 0 44 0010 150 -BYTE *X44, OPTF, OPTF, > MULF 
00 0 8 45 Bi8 251 -BYTE “X45, OP_F, OP_F, 3 MULF 
00 b3 46 18 13 -BYTE “X46, OP_F, OP_F, 3 pivrs 
00 03 03 4 O1c 83615 -BYTE “X47, OP_F, OP_F, 0 : DIVE 
00 0 4 ; 0 154 BYTE “*X48, OP_F, ° 3; CVTFB 
00 0 4 4 155 -BYTE “X49, OP_F, ° 3; CVTFW 
00 00 4A 0028 156 -BYTE “X4A, OP_F, . 3 CVTFL 
00 69 48 Q002C 157 -BYTE  “X4B, OP_F, - 0 3 CVTRFL 
03 0 4F 0030 138 -BYTE “X4F, OP_F, OPF. OP_F ; ACBF 
00 0 50 0034 15 -BYTE “X50, OP_F, .% : MOVF 
8 1 8 160 BYTE ake}. OP_F, OP_F, 8 : CMPF 
C 161 -—BYTE “Xx ¢ OP-F, ‘ 3 MNEG 
1 4 44 16 -BYTE “X54, OP_F, OP_B, OP_F ; EMODF 
0 . 5 0048 164 -BYTE “X55, OP_F, ° ; POLYF 
0 3 ef 165 -BYTE ak28- OP_F, ° ; CVTFD 
0 04 04 6 : 198 -BYTE “X60, OP_D, OP_D, ; ADDD 
Be 4 °) 4 16 -BYTE X61, OP_D, OP_D, ; ADDD 
4 § 058 198 -BYTE aXOG. OP_D, OP_D, ; SUBD 
0 04 04 6 5 18 -BYTE “X65, OP_D, OP_D, ; SUBD 
4 04 re 170 -BYTE aNGe. OP_D, OP_D, 3 MULD 
4 04 65 171 -BYTE “X65, OP_D, OP_D, ; MULD 
8 4 04 66 8 Ha: -—BYTE “Xx g. OP_D, OP_D, : DIVD 
4 04 6 6c 17 -BYTE “X67, OP_D, OP_D, ; DIVD 
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LIBRTL.SRCILIBFIXUPF MAR; 1 (3) 
-SBTTL LIBSFIXUP_FLT = Fixup floating reserved operand 
FUNCTIONAL DESCRIPTION: 
IBSFIXUP_FILT finds the reserves operand of any F, D, G or H 
loat ng instruction (with exceptions stated below) after a 
reserved operand fault has been signaled. LIBSFIXUP_FLT changes 


the reserved operand from - to the parameter, new_operand, is 
present; or to +0.0 if new_operand is absent. 


Exceptions: 


LIBSFIXUP_FLT can not handle the following cases and will return 
a status of SS$_RESIGNAL if any of them occur. 


1. The currently active signaled condition is not 
SS$_ROPRAND. 

2. The reserved operand's datatype is not F, D, G or H 
floating. 


5. ee reserved operand is an element in a POLYx 
a 


CALLING SEQUENCE: 


ret_status.wlc.v = LIBSFIXUP_FLT (sig_args_adr.rl.ra, 
mch_args_adr.rl.ra C, new_operand.rf.rJ) 


FORMAL PARAMETERS: 


sig.args_adr =4 
Address of signal argument vector. 
mch_args_adr = 8 
Address of mechanism argument vector. 
new_operand = 12 
ptional. Address of an F_floating value to replace the 
reserved operand. 


IMPLICIT INPUTS: 


The stack frames back to that of the instruction which faulted. 
The instruction which faulted and its operands. 


IMPLICIT OUTPUTS: 


The reserved floating operand, if found, is replaced by 
new_operand’’ or zero. 
COMPLETION STATUS: 


SS$_CONTINUE = continue execution at point of condition 
Routine successfully completed. The reserved operand was 
found and was fixed up. 

SS$_ACCVIO = access violation 
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An argument to LIBSFIXUP_FLT or an Serene of the faulting 
instruction could = be read or written. 
SS$ oRE516N AL = resignal condition to next handler 
The condition signaled was not SS$_ ROPRAND or the reserved 
eogrene a a floating point value or was an element in 
SS$_ROPRAND = reserved operand fault 
The pet tenet, ar aye new_operand was supplied but was 
itself an F — ing reserved operand. 


st 
a frene” ee had been corrupted since the time of 
the couneund operand exception. 


a If the status value returned from LIBSFIXUP_FLT is seen by 
the condition handling facility, (as would be the case if 
LIBSF IXUP An aa the handler). ony success + be is equivalent 
to SS$_CONTINUE, which causes the instruction to be restarted. 

Any esercre. bn 9 is equivalent to SS$_R RESIGNAL. which will cause 
the condition to be resignalled to the next handler. This is 
because the condition hendler (LISSFIXUP. FLT) failed to handle 
the condition correctly. 


SIDE EFFECTS: 


If the reserved operand is fixed up, the instruction which 
faulted is restarted. 


Registers used: 


LIBRTL.SRCILIBF IXUPF MAR; 1 


RO = scratch 

R1 = scratch 

R2 = pointer into opcode/operand table 
R35 = context index or 

R4 = OA1 (operand eddress) of bits 3 


OA2 (operand address) of bits 63: 339. which may not be 
OA1+4 since registers not necessarily saved contiguously. 
togreter number of operand specifier 

scratc 
OA3 (operand address) of bits 95:64 (H opcodes only? 
OA4 (operand address) of bits 127:96 (H opcodes only) 


-ENTRY LIBSFIXUP_FLT, “M<R2,R3, R4, nek oA. R7,R8, of eR10,R11> 
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3 e all registers so that all will be 
tom in gtecs Curing back scan. 
disable IV (content index multiply) 
pasombly time peck to be sure Phat the 
PROB ater will work correctly 
Enable poe ad handler 

= adr. of signal arg list array 
¢ position of message identification 


SFSL_SAVE_REGS LE 512 
W*OUR_HANDLER (FP) 
S16 ARGS ADR(AP) , 


$y.c8 oe ID, 
ea taes gfe “1D d 

FSL_S NRME (RO compare 29-bit VAX-11 signal code 
pose ~ROPRANDS-S1 98 =e § ID> ; with reserved operand code 
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IBSFIXUP_FLT - Fixup floating reserved operand 16-SEP-1984 00:09:10 YAX/VMS Macro V04-00 Page L 1B! 
itt LIBSF1KUP_FLT time floating reserved aes 90:87 18 YTORTL. SREICIOF IXUPF .MAR: 1 ° (3) Pse 
3 0174 71 BEQL 2$ 3; It is, continue 
gor 3 178 ie BRwW RESIGNAL ; Not, so resignal 
SE FF78 CE 9E€ 017 73 28: MOVAB =<K_SAV_IMAGE_SIZ>*2(SP), SP_; allocate two local vectors: 
17E 74 ; REG_IMAGE = image of registers at time of 
17E 75 3 ADR_IMAGE = image of address where regs ar 
17E 06 3 saved in stack in case they need fixup. PSE! 
O1IDA 30 1 4 BSBW GET_REGS ; setup the two image vectors in local stora = 
18 78 ; do not return here if error, instead RET w ta! 
181 79 ; error completion status SAB 
He - 
34 
13 ¢ ; Get instruction opcode. Determine if this is an_instruction which 
181 3; we can handle. If not, resignal. If so, load R2 with the address 
13 Hf: 3; of the operand table entry for that opcode. 
O18] 38¢ Pha: 
01BD 30 813) 87 BSBW NEXT_BYTE ; Get first opcode byte mar 
FO BF «=650s*791 o1 4 388 CMPB sO, -WG_H ; Is this a G or H instruction? Ini 
27 13 0188 389 BEQL «=s«108 : Yes Comi 
03 50 91 O18A 390 CMPB =séRO, ~#BPT : Is this a BPT instruction? Pas: 
12 i 018D 91 BNEQ 5$ 3 Skip if not Symi 
7E F8 AD O1 CS O18F 38 SUBL3 #1, IMAGE_PC(FP), -(SP) ; Push PC on stack Pas 
00000000'GF 01 FB 0194 9 CALLS #1, G*LIBSGET_OPCODE : See what opcode really is. Syml 
FD 8F 50 91 0198 94 CMPB RO, #G_H ; Is it a G or H instruction? Pse 
10 13 O19F 395 BEQL §=s-:108 : Skip if so Cro: 
51 D4 O1AI 338 5$: CLRL R] : Binary search low Limit Assi 
57 _QO0000A0 8F DO O1A3 97 MOVL #<SING_END-SING_TAB>, R7 ; Binary search high Limit 
53 FES2 CF 9E O1AA 398 MOVAB W*SING-TAB, R3 ; Table base The 
11. «11 «O1AF 99 BRB SEARCH 3761 
018D 30 0181 400 10$:  #BSBW NEXT_BYTE ; Get second opcode byte The: 
51 D4 01B4 401 CLRL eR ; Binary search low Limit 918 
57 gooopess 8F dO 3186 rt MOVL #<DOUB_END-DOUB_TAB>, R7 ; Binary search high Limit 12 
5 FEDF CF 9E 188 ret MOVAB W*DOUB_TAB, R ; Table base 
7.6U SCO ait 408 SEARCH: CMPL R1, R7 ; Not in table? 
$3 13. OIC 406 BEQL RESIGNAL 3; Yes, resignal 
2. oT 1 Ci 01C7 407 ADDL3 = R1, R7, R2 3; Get middle entry 
52 52 FF BF 78 1¢8 408 ASHL. #1, R2, R2 Mac 
52.03 CA 0100 409 BICL2 #3, R2 ; Longword offset — 
50 6342 91 0103 410 CMPB. ss (R$) CR27, RO : Is this the opcode? 82! 
08 1A 01D? 411 BGTRU 10$ ; No, too high 
98 1F 3103 ra BLSS 20$ 3 No, too low 561 
a CO O1DB 41 ADOL R3, R2 ; Compute actual address 
0011 31 1 414 BRW Sgn 3 Now scan the operands The 
57 52 00 OIE 415 108: MOVL R2, R7 : New high Limit is last try 
DC 611 «O1E4 a3 BRB SEARCH 3; Continue search MAC! 
51 52 04 C1 O1E6 417 208: ADDL3 #4, R2, RI : New Low Limit is last try + 4 
D6 si BIEA 418 BRB SEARCH 3; Continue search 
1EC } 386419 
pice 420 
1EC 421 3+ 
ice 2 § ; If we can't handle this exception, return SS$_RESIGNAL. 
1EC }3=— 424 
1EC 425 RESIGNAL: ; 
50 0918 BF 3C OIEC 4 § MOVZWL #SS$_RESIGNAL, RO ; RO = RESIGNAL error completion code 
04 O1F1 4 RET 3 error return 
| 
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‘te + haba ~ fire floating reserved operand i ak dat B+ 90: 09719 wae M 
-006 LIBSFIXUP_FLT = Fixup floating reserved 6-SEP-1984 11:07:14 (CLIBRTL.S 
1F 4 
1F 4 3+ 
1 2 9 ; Now scan the operand List, looking for a reserved operand. 
1F 4 3 
1F 4 SCAN: 
3 6 1F 434 INCL Re ; Get next operand type byte 
am.6 SG 93 O1F4 435 BITB #3, R2 3; If the low two bits are clear 
O1F7 4 : : then we are at the start of the 
Q1F? 3843 ; next table entry, thus we are 
O1F7 138 ; done. Remember that the tables 
1F7 8439 ; are longword aligned. 
F3. 13 OF? 8 440 BEQL RESIGNAL 3 No reserved operand found 
62 95 O1F9 441 TSTB (R2) 3; No more operands to test? 
EF 13 O1FB Pek BEQL RESIGNAL ; Yes, no reserved operand found 
0052 30 O1FD 44 BSBW NEXT_OPERAND t Look at next operand 
EF 50 €9 0200 444 BLBC RO, SCAN : If reserved operand not found, 
0203 445 ; continue looking 
00 11 0203 446 BRB FIXUP ; Fixup reserved operand 


acro V04-00 Page 19 ni 
RCJLIBFIXUPF MAR; 1 (3) 

| 

| 


Page 


v04-00 


3 


C 


ting reserved ayerens 
LT = Fixup floating reserved 


loa 
_F 


GuP 


ae 
a 
~ 
o 7 
. a 
a 30 
N ~c a ao wv 
c ee i = ‘= 
nw > o o °o 
-cCc ~- © a a a we 
@ e2aa a. w w wn 
on v30 aw 
30 cx £ wo a=] ao) 
= & e-r-c c c c 
sa wth OO ae @ «a @ 
> ne on 
3 oft Ow oc a o = 
ac tecyv — 
3060 wUOt-r@ i oO °o °o 
xc Oo oe oo ae we 
-oe SRG OOOOO>F SC 
-a 2owccccen, uw o wu 
°o So we er CO 
oe OO -ewwww ‘io we we “ 
~—~3EB OOH | B88 00uN t& . = oc 
3@ ~~ ooooc~, a @ w ow 
ec oo ———— Se > > > vos 
- arw +ess O> C c Cc uw 
@®@WOewE we teteeco oOo °o °o 30 
Coe CHROM wOvurvVve vw v (e) eS 
ee *e *e re re eA e*e *e*e re ee ese es es ee re 
oo 
' 
A a 
~w Oo 
~ a 
a oO = 
ze ' 
<= a Oo 
a . Oo e 
wa ~_ v 
aa = . 
oOo <« ws 
| nd . = 
z= a om mae an nan Aan = 
wa 2 CB OD ww rw wTWmaoo _ 
z= <« acer ace acace ncaoece - 
wo VV @& O06Ccee- — Aarwr~w Aarxw Qwuwwvw s 
o =z w awminss Tr Ww “” w” 
© a uoux a — © 6 — 8 6 “— © @e@ @& 8 w 
. > oO **24#G¢383 0 ‘++ ‘++ (+++ + 4 
@ ~ (AAR eee - ARE RR EK RRR AP 
a APABROMMMNYMN et 80.04 CAO -O000 ” 
o OftOwocewwww OCOFfOVMxouVuNrxOuNWNwW ” 
o Geer 2e--w~OOOoO Gwt-e~werrwoervrwvwns = 
4 
ee =) @moaca a o = 
a ADM JJ Jw we wi wm I lm UL —_ 
Ww e£an>a>Vo0o00I>Q@r>>0r>>08r->>>> >. 
a HE JOwo dt 3333<a0ac[>0o0ac>ooa>oo00 Ow 
eo VeYOEZ@MEw ++  *TLEOYrVTTOVYTIEOYCZTTEES za 
a Td oe oe 
| *- u 2 oO =x 
=< a. t t 4 7 
- —_ oo ee lo _— _— tod _ 
rr SS AA “yn Ww “” ” 4 
aa § — on mw w w w =< 
cereres kt or a a a a w 
DRO K—OUMMN TN OR. WOO — CIM TWN OR. DAO CUM TN OR. OKO CUM 
TTUMNMUNMNTUNUNNOODOOOOOOOORP-P_EPPPR_PRPR_R.00000000 
fl Al Al i a i lo Si a i i i i i ee oe 


QQ QD INICIO OPP ST TST TT 


OVOumor 
MWCO acovuond 


a 


Lat] om 
oO Mo 
oO 
w 


~ 
oO 


= 
= 
ae 
a 

a 
=] 
=< 
— 
bo 
ad 
@ 
-_s 
IN 


pode h hed eh gh ghiah gh od igh phigh gh ghigh gh ghghgh phigh gh phigh phophphighighgh phigh 
pole le lelelolololal a=) oO 


COOOCOCOSOSCOSOOCOSOOCSOSCOOooOO 


oooo 


Tr uOMOLAwAnoo=-OC0O0- A00-—-Aacc0oO 
OO O- ODOOK MOM NOOO 4% OOK uu OBOBOA 


oa 
o 


WOU 00 00 — W000 = 00 00 0000 


co) 
o 


ow 
ao 


- 
oO 


oO 
w 


. 


d 3 
IBSF IXUP_FLT Loati d d 16-SEP-1984 9:1 AX/VMS M 4- 
ete t ° ng reserve operan 6-SE rate 8 0 S$ Macro V04-00 Page 1g, 


u 
0 
0 
0 
Q 
i] 
0 
0 
0 
0 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


zi 
m 
xn 
See 


Fe ale aa Ab Ab Ab db db dh hb bebe bbb bed bedded bud bebbed bub bed bbb dh Ab Ah Ab sh sb sh Ab db Ah sb sb sh ab sh sh ab sh sh sb sh sh sb sh shea) 


PD NOV 9 FO OGD SD NEP IMPIMINININIPINIMPININININININININININIPINIPIPIPINPYIAINPIAIPUDINIPIPIPPIPIPIPIPUPIPINPY on 


o 
eee eee ealeale ele le ee lee ee ee Le ww we oD oD oD oe oo? oo? a > a ot > et 
SF PAAAAAAI WIAA AIAIPIPINPIPININIPINPINID) 9 9 OS SS 2 QOOOOOCOCOCOCOCOOOOVOOOOOOOM@MMWMa@an | 
=O DOO NAME WIR 9 OD NA UE WIN 9 OONOAOUM EWN (OVO ONAUS WN 0 OONOUES WN OO OONOu 


RPP DPIPDPPINIPINIPYPINIPININIPININPINIPINIPYINININIPNIPINPYNIDMOPIPIPIPOPIPIPIPIPINIPUPIMIPPIPIPIPIPUPIPUPUNNYD 


an 
Mm 


t next operand and chec 6-SEP-1984 7:14 CLIBRTL.SRCILIBFIXUPF .MAR;1 ( 
-SBTTL NEXT_OPERAND = Get next operand and check for floating opcode 
FUNCTIONAL DESCRIPTION: 
NEXT_OPERAND yrtinak ok gy the paeeuation ahs and 
gets “the next gpereee It returns 1 
f operand is f 
; CALLING SEQUENCE 
JSB NEXT_OPERAND 


; INPUT PARAMETERS: 


cating or double ssentena operand, else 0. 


3 R2 = address of operand type table 

; IMPLICIT INPUTS: 

: REG_IMAGE (FP) ; The image of the registers including PC 
: instruction stream 

OUTPUT PARAMETERS: 


R4 = Ba} (operand address of bits 31: 9 of operand) 

R5 = Ong (operand address of bits 63:32 of operand) if R1 = 8 
R8 = (H opcodes only) 

R9 = BAe (H opcodes only) 


IMPLICIT OUTPUT: 

; Saved image of PC is updated as operand specific is interpreted 

; COMPLETION STATUS 

: RO = 1 if operand is floating or double reserved operand, else 0 

; SIDE EFFECTS: 

NONE - uses registers RO:R9 - see LIBSFIXUP_FLT for register usage 


NEXT_OPERAND : 
CLRL 


R3 ay initial context index register 
MOVZBL (R2), RO ; Get operand type byte 
MOVZBL W*OP “sl ZESCROJ, R1 ; Get operand size 
a6 
: _Loop to get operand specifier - loop back here (once) if operand specifier is inde 
LOOP_OP: 
BSBW rl BYTE ; RO = next I-stream byte (sign extended) 
EXTZV #4, RO, R6 : R6 = register field 
EXTZV #4, #4, RO, RO ; RO = operand speci tier 7:4 
CASEB RO, ; #16 =4 3; dispatch on operand specifier code 
: Literal 0-3 falls through 
108: -WORD INDEXED-10$ 3; 4 
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eit NEXT OPE AND - bet next operand and chec 6-SEP-1984 10 OF 18 ETARTL. SREILIOF IXUPF MAR: 1 . ( 
Rea, -WORD REG-10$ $3 
038° «WORD REG _DEF=10$ ; § 
Be : «WORD AUTO DEER 108 ; 
49° «WORD AUTO-INCR-10$ ; 8 
055° «WORD AUTO_INCR bere tes ; 
064' «WORD BYTE-DISPC-10$ 3 10 
068' «WORD Bre Dept apace “108 : i 
7% WORD WORD_DISPL=10$ ; 1¢ 
0070" WORD WORD-DISPL_DEF-108 ;7 
Be WORD LONG_DISPL=10$ 3; 14 
O7E* WORD LONG_DISPL_DEF-10$ ; 


39 
; Literal - can't be reserved, just return failure 


0085 =s«31 BRW NOT_RESRV ; return = not reserved operand 


3+ 
3 Indexed - save context index and loop back 


INDEXED: 


53 51 BC AD46§ C5 a REG_IMAGE(FP)CR6], R1,- ; R3 = context index 
cc BRB LOOP_OP 3 go back and get next specifier 
39 
; Register 
54 FF78 CD46 D0 REG: MOVL ADR_IMAGE(FP)CR6), R4 = ; R4& = OAl = adr where Rn_ saved in stack 
55 FF7C CD46 ~—i0 MOVL ADRé IMAGE +4 (FP) RG], RS: RS = OAg = adr where Rn+1 saved in stack 
58 80 AD46 00 MOVL ADR_IMAGE+8(FP)CR6], RB; RB = OA 
59 84 AD46 = 0 MOVL  ADRTIMAGE+12(FP)CROJ, RO’; RO = OAS 
5D «11 BRB CHK_OP_RSB 3; check operand for reserved and RSB 


= contents of Rn 


54 BC AD46 00 : R4 = OA 
4 11 3; set OA2, check op and RSB 


MAGE(FP)CR6], R4 
A2 


3% 
3; Auto Decrement 
AUTO_DECR: 


SUBL Ri, REG_IMAGE(FP)CR6] ; decrement Rn by operand size 
BRB REG_DEF ; go do register deferred 


WPS ODNOAUNE WIN $$ O OO NAW EWN 9 OD NAUE WN $0 OD NAU EWN 0 OONOA UEP 


BC AD46—s ‘51 c 
F2 1 


s¢ 
3; Auto Increment 


; 
; 
; 
: 
; 
; 
; 


L IBSFIXUP_FLT 
-006 


54 BC AD4S6 
54 64 

BC AD46 = 04 
25 


6D 
OE 


54 BC AD46 


Som 
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AUTO_INCR: 
MOVL §REG_IMAGE(FP)CR6], R4 
ADDL R REG_IMAGE(FP) CROJ 
BRB SET_OA 

3% 

3; Auto Increment Deferred 

AUTO_INCR_DEF: 
MOVL  REG_IMAGE(FP)CR6], R4 
MOVL 43, R4 
ADDL #4 REG_IMAGE(FP)CR6J 
BRB SET_OA 


BYTE_DISPL: 
BSB NEXT_BYTE 
BRB DISPC 


BYTE_DISPL_DEF : 
BS6B NEXT_BYTE 
BRB DISPC_DEF 


+ 
; Word Displacement 


4 WORD_DISPL: 


BSBB NEXT WORD 
BRB DISPC 


se 
3; Word Displacement Deferred 


WORD_DISPL_DEF: 
BSBB_-—«-NEXT_WORD 
BRB DISPC_DEF 


hg 
3; Long displacement 


LONG_DISPL: 
Dd 


BB NEXT LONG : 
ISPL: ADDL3 R REG_ IMAGE (FP) CRG, rd 
BRB SET_OA ; 


Sete te 
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ing reserved operand 16-SEP-1984 :09:10 VAX/VMS Macro V04-00 Pa 
D- bet next operand and chec aioe Pi 90:95:12 YOTORTL. SRCICIGF IXUPF MAR: 1 - 


R4 = OA = contents of Rn 
saeroane Rn by operand size 
set OA2, check op and RSB 


R4 = contents of Rn 
R4 = OA 


increment Rn by 4 (size of address) 
set OA2, check op, and RSB 


RO = next I-stream byte 
add to PC 


RO = next I-stream byte 
add to PC and defer 


RO = next I-stream word 
add to PC 


RO = next I-stream word 
add to PC and defer 


RO = next I-stream longword 
. = OA = (Rn) + displacement 
set OA2, check OP, and RSB 


IBSF IXUP_FLT - Fixup floating reserved o erent” SEP=1984 AX/VMS Macro V04-00 Page 15 
ett NEXT OPERAND - bet next operand and chec .* See 1984 90: $3312 LIBRTL.SRCILIBF IXUPF MAR; 1 . (5) 
ge g § 3; Long Displacement deferred 
EC ? 
EC LONG_DISPL_DEF: 
64 10 EC 660 BS6B NEXT_LONG 3; RO = Next I-stream ne deter 
EE 661 DISPL DEF: here for displacement deferred 
54 BC AD46 50 (C1 EE 66¢ ADDL3 RO, REG_IMAGE(FP)CR6), cl R4 = (Rn) + di splacement 
54 64 00 Fg 663 MOVL (R4&), RZ R4 = OA = (OA) (do defer) 
F7? 665 ;+ 
F7 008 3; add context index or 0 
F7 98 ; Set OA2 (operand edéress 2) from OA+4 since 
F7 rt: 3 operand is in wenery not a register and therefore is contiguous 
F7 96 3; Also set OA3 and OA 
F? 670 ; 
F? 671 
F7 ore SET_OA2: 
54 53 CO O2F7 67 ADDL R3, R4 ; R&4 = OA + context index or 0 
55 04 54 C1 O2FA 674 ADDL R4, #4, R5 3 RS = OAg = 0A +4 
— © 2 oF GG A} 675 ADDL R5, ate R8 ; RB = OA 
59 046 58 (C1 8 0 676 ADOL RB, #4, RI 3 RO = OA4 
306 677 
0306 678 ;+ 
0306 679 ; check for reserved operand 
9306 680 ;- 
0306 681 
0306 6 ¢ CHK_OP_RSB: 
50 01 »vdO 0306 68 MOVL #1, RO 3; Indicate success, initially 
93 03 62 8F 0309 684 CASEB = (R2) #OP_F, Par POS ; Case on operand type 
OOA' 030D 685 1S: <WORD 10$-1$ ; F floating 
OOA' O3SOF 686 «WORD 108-18 i D-floating 
0017" 0311 687 WORD gue-1$ : G_floating 
0024" 0313 688 WORD 0$-1 3 H-floating 
ar 11 13 $89 B NOT_RESRV 3 wrong dataty 
64 09 7 ~=26©€ED 1 690 10$ CMPZV ae FRZERO #S_FMZERO, - ; Check F "floating and D_floating 
00000100 8F 18 691 (RZ), #*x100 
— O36 BEQL NEXT * OPERANDX 3 Found 
1A—so1 69 BRB NOT_RESRV 3; Not found 
64 0c gf ED 4 694 208: CMPZV te GAZERO #S_GMZERO, - ; Check G_floating 
00000800 8 8 695 (RS), #°x800 ~ 
11 13 D 928 BEQL NEXT * OPERANDX 3; Found 
OD 11 8 F 69 BRB NOT_RESRV 3 Not found ; 
64 10 OO €D 1 698 30$: CMPZV o#V ANZERO #S_HMZERO, - ; Check H_floating 
00008000 oF 5 6 9 (RZ), #*xX8000~ 
4 13 A 0 BEQL NEXT “OPERANDX 3; Found 
00 11 c 701 NOT_RESRV ; Not found 
—E 7 : NOT_RESRV: 
50 D4 7 CLRL RO ; RO = failure 
40 704 NEXT_OPERANDX: 
05 rf 4 5 RSB ; return RO indicating success or failure 
a1 FO 
41 7 3 
41 709 ;+ 
ai oi9 3; routines to get next byte, word, or long from I-stream and sign extend 
41 7i2° 
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} NEXT matte 
1 
1 
1 
1 
|= 


NEXT ao 


? 
? 
? 
? 
7? 
7 
7 
? 
? 
? 
? 
? RSB 
7 
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reserved operand 3 P-1 
t next operand and chec 6=- 


3 

4 

5 

; 

9 

, aeee 
§ 

4 

5 ADDL 
; 


SEP=1 


@IMAGE _PC(F te RO 


IMAGE _PC (FP 


@IMAGE_PC(FP), RO 
, IMKGE_PC(FP) 


1382 99:89:12 HoteNtS. 


RO = next byte 
update PC 
return 


RO = next word 
update PC 
return 


RO = next longword 
update PC 
return 
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pets GET_R E S Get contents and operand’ of a "3 =SEP=1 138 99:09:18 YaRTL. SRCILIBF IXUPF .MAR; 1 es (6) 


-SBTTL GET_REGS Get contents and addresses of all save registers in stack 
: FUNCTIONAL DESCRIPTION: 


—-ono 


GET_REGS scans the stack and finds +3 TE cegtsters Sever 
in Call frames a ~ the signal facili > F hus 

makes en image egisters at the time of AY 

exception or face Cisssi NAL/STOP. Because a double 

operand may be saved in two different places, an image 

array of aeergeeee ae the registers are saved is also created. 

Note: GET_REGS a 

caller has saved a Rif in frame using its entry mask so all ts at 

are in memory somewhere. Stack scan is defensive against bad s 

Note: to reconstruct contents of SP at time of exception or calt “I TBSSIGNAL, 
Use of the fact that the signal args List is peenas on stack first is made. 
That is SP is = adr of last signal arg/ +4. Also depends on saved PC being 
SYSSCALL. HANDL+4. 


CALLING SEQUENCE: 

; JSB GET_REGS 
: INPUT PARAMETERS: 

NONE 

; IMPLICIT INPUTS: 


SIG_ARGS_ADR. (AP) Adr. of array of signal args 


SNS NSS SSO eee eeeneews 


AOCMMNIMNUIUUIVIVIVI ES BRE RRR RRS 


MOOD NAUNE WIN SO ODNAUE WN (O ODNOULS UT 


| 
| 
| 
| 


PUPVPV PVP PU IVP PU SDVPVPUSIVIULVIUSUSVIUSVSVIUSUSV SUSU SUIS USUSUSVSUSUSUSUSUSUS USSSA USS SISOS SII 
fesfosTestesfestestecfestesfestestesfestesfeteTesfestestetedededetedeTeTedete Tete teteDetetetesteTetestesleTeleslesTeslestelesteslestesles[esteslss] 


MCH_ARGS_ADR. (AP) ; Adr. of array of mechanism args 
; OUTPUT PARAMETERS: 
NONE 
763 ; 
Ne ; IMPLICIT OUTPUTS: 
766 REG_ IMAGE (FP) 3; set reg image array RO:PC/PSL 
767 ADR_ IMAGE (FP) ; Set adr where reg saved RO: PC/P 
6 3; except adr. where SP SAVED = 0, "Dinas not 
aA ; COMPLETION CODES: 
ure : NONE JSB 
773; 
ore ; SIDE EFFECTS: 
£76 If error, RET with error code 
77 ome 
ore 
779 3+ 
4 ? ; Registers used: 
7 : : if = scratch 
785 ; = pointer to register image array (REG_IMAGE) 
784 ; = stack frame pointe 
785 ; = Adr. of register save area in frame 


5s 3 
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5-006 GET_R Rs Get contents and oadresses of a pate 99: 7:14 YTARTL. SREILIGF IX PF.MAR;1 ’ (6) v03 

wee § 3 R4 = Loop count ; 

S 787 ; R5 = pointer to address image array (ADR_IMAGE) : 

Be. § ; R6 = register save mask : 

: 789 5- ‘ 

8 13 GET_REGS: ; get register image : 

B 9 ; 

» £95 3 : 

: ie ; Setup loop to scan back through stack : 

B 796° ; 

51 BC AD OD B 79 MOVAL REG_IMAGE(FP), R1 ; R1 = Adr. reg image vector . 

52 5D OD F 79 MOVL FP, R2 ; R2 = Adr. of current frame ; 

79 ; where all callers register saved : 

54 01. 10 78 80 ASHL #16, #1, R4 : R4 = max loop count = 65K ; 

55 FF78 CD OE 0 MOVAL  ADR_IMAGE(FP), RS : RS = adr. of array of address where 
” 3 registers are saved. 


Loop to scan call stack back to signal exception 


os 4% FB LOOP: ADDL3 Ree WSFSL_SAVE_REGS, - ; stack frame adr + offset to first reg saved 
R = adr. of first saved reg. 

CLRL RO = first possible register # saved 

EXTZV #SFSV_SAVE_MASK, - sition of save mask 

#SFSS_SAVE_MAS e 


E-MASK, = 
SF$W_SAVE_MASK(R2), R6 


56 06 A2 OC 00 EF 
of save mask 
register save mask 


3+ 
; loop to copy saved registers RO:R11 from one call stack frame 
; to register image array also set address of register image array. 


56 OC 50 EA LOOP1: FFS RO, #12, - : find next register in saved bit mask 
50 R6, RO ; RO = register number of next saved reg. 
a. 6=Olo BEQL 10$ 3; branch if finished 12-bit reg mask 
63 04 00 0 PROBEW #0, #4, (R3) 3; check if stack still writeable 
$3 1 BEQL BAD_STACK1 : branch if stack bad 
6540 3 60 MOVL R3, (R5)CROJ : store address of where Rn saved 
6140 3 DO MOVL (R$)+, (RIDCROI 3; copy saved Rn to image + Rn 
E756 50 «£4 BBSC RO, R6, LOOP1 : clear bit n for Rn, get next bit 


2@ 
3; check if frame just saved is that of call to handler from signal or exception 


OPPPP SF DMOOCOCOCOCOCOSO BLM 08 NNN SSS OS ow 


PR OOO NA MEW @ OOD NAME WIN OOD NA UE WN 0 OD NAME WN 0 OONAUE WO 


009090909 G9 00 0d Cd C0 Gd Cd Cd. 09 Cd Cd Od Cd Cd Cd C9 CD OD OD Cd Cd Cd CD Cd Cd C9 CD GD CO CD CD. CD CD 
EPPA IANNIS POPIPIPPOPOR) 2 tS Ss OOOO 


00000004'8F 10 A2 01 10$: CMPL SFSL_SAVE_PC(R2), - ; saved PC the one from call to handler? 
#SYSSCALL—HANDL +4 : absolute system vector adr 
oo. BEQL END_SCAN 3; branch if yes 
toe 
3 step (cautiously) to previous frame 
14 00 OD PROBEW #0, #SFSL_SAVE_REGS,- ; check if fixed part of previous frame ok 
0c B2 aSf$__SAVE_FP(R2) ; 


ie 
floating reserved operand 
S$ Get contents and addresses o 


LIBSEIXUP_FLT 
-006 


oe 
wn 


ogo 
+o 
@BOOwwowrr>>r>rrr>P 


@Ooww Pad 
& FOOCOCOCCOCOCOCO ™ Coco cE ce cecNceU 


MS > NWN SS BHR AHRNOONWWwD WIS GC OOo 


000 
vw 


oooo 
MN OOONAUES WIN OS ODNAOVN EWN $$ O ODONAU EWN 0 OONAUES WN OVOONO 


50 O*.909 09096909 09 09 09 09 08 SII NNN SSNS NIAAA AAA AAA MUMMIES & 


MMMMMMMoOOOCVTVIIVTIAMOMOOAOOOO 


BEQL BAD _STACK1 


L SFSC_SAVE_FP(R2), 


MOV 
SOBGTR R4, COOP 


3b 
R2 7 R 
: 9 


BRTL.SRCJLIBFIXUPF MAR; 1 (6) 


f frame not writeable 
- of previous frame 
if haven't scanned too many frames 


we Macro V04-00 Page 19 
i 
e 


z¢ 
; here if bad stack - return LIBS_BADSTA to caller of LIBSFLT_FIXUP 


BAD_STACK1: 


s@ 


MOVL  § #LIB$_BADSTA, RO 
RET 


; RO = BAD STACK completion code 
: return to caller of LIBSFIXUP_FLT 
; not JSB caller of GET_REGS 


: Here when scanned all frames back to call to handler 
; Copy RO:R1 from mechanism vector. Set AP,FP,SP,PC,PSL 
; Also set address where each of these registers is saved 


END_SCAN: 
MOVL 


RO 
ADDL #AP_OFF, R1 


ADDL #AP +_R5 
MOVAL SFSC SAVE_AP(R2). = 
MOVAL SFSL_SAVE_FP(R2), - 


(R5)F 


MOVQ SFSL_SAVE_AP(R2), 


(R1)F 


MOVZBL @SI1G_ARGS_ADR(AP) 
MOVAL”  @S1G"ARGS_ADR(AP) 


ADDL #4, RO 


CLRL (R5)+ 

RO, (R1)¢ 
MOVG (RO), (R1)4 
MOVAL (RO)+, (RS) 
(R5) 


+ 
MOVAL (RO)+, + 
RSB 


MCH_ARGS_ADR(AP), RO 

MOVAL CHFSL_MCH_SAVRO(RO), = 

MOVAL EHSL MCH_SAVR1(RO), - 

MOV = CHFSL_MCH_SAVRO(RO), - 
OFF CRIS 


Se Se Ge Ge Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Be be Se Ge Se Se Se Be Be 


RO = adr. of signal mechanism arglist 


; adr. where RO saved 

; to vector of addresses 

; adr. where R1 saved 

; to image address vector 
; saved RO/R1 

; to register image vector 


1 = adr. im image vector of aP/FP 


; RS = adr. in image address vector of AP/FP 
; adr of saved AP 

; to image address vector 

; adr of saved FP 

; to image address vector 


saved AP/F 
to image register vector 
RO = # of signal args 


RO = adr of last signal arg 

= SP at cime of exception or call LIB$S 
NOTE: this a snec from LIBSSIGNAL and 
exception processing of operating system! ! 
SP not saved anywhere so set IMAGE _ADR TO 
set taage SP 
sopy PC/PSL to inage (always last 
2 signal arguments 
set adr. where PC saved 
set adr. where PSL saved 
return (to LIBSFIXUP_FLT) 
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. 3 
IBSF IXUP_FLT - Fixup floating reserved operand 16-SEP-1984 AX/VMS Macro V04-00 Page 2 
5.006 GET REGS Get contents and addresses of a 6-SEP-1984 4 99: 83:12 LIBRTL.SRCILIBF IXUPF MAR; 1 29, 
EE 94 ;+ 
43 2? 3 OUR HANDLER = Local condition handler 
EE 97; a ,ogneit ton handler is enabled by LIBSFIXUP_FLT. If the signal 
EE 38 : depth is zero and if the exception is SS$_ACCVIO or SS$_ROPRAND, then 
EE 99 ; LIBSSIG_TO_RET is called to cause LIBSFIX XOP P_FLT to return the 
EE 3 9 3 except Sn tondition as a status. ALL other exceptions are resignalled. 
cE 9 ; 
EE 903 OUR_HANDLER: 
“ey E 904 D “M<> ; Save nothing 
50 wad | 8F ‘ F 3 5 MOVZWL #SS$_RESIGNAL, RO 3; Resignal if nothing Le 
51 O08 AC D F : VL CHFSC_MCHARGLST(AP), R1 : Get mechanism ,args L 
08 Al 05 (03F9 «8690 TSTL GHESLIACHDEPTH(R1) ; Is depth zero? 
1D is FC 908 BNEQ 0$ :; If not, resignal 
51 O04 AC OD 8 FS 909 MOVL CHFSL_SIGARGLST(AP), R1 ; Get signal args List 
51 04 A1 00 040 910 MOVL CHFS$L-SIG_NAME(R1), R1 ; Get signal name 
oc 51° O01 ot'43 911 CMPL Ri, #SS$_ACCVIO 3 Access violation? 
| 09 13 040 gig BEQL ~=s«108 : If so, call L1B$SIG_ TO_RET 
00000454 8F 1 01 be98 91 CMPL R1, #SS$_ROPRAND ; Reserved soerenet 
07 12 0412 91% BNEG 90% : If not, re signal 
00000000 ' GF 6C FA Rete 915 10$ CALLG (AP), G*LIBSSIG_TO_RET ; Unwind to LIBSFIXUP_FLT's caller 
04 Bere 318 90$ RET 3; Return to CHF 
041C 918 END : end of LIBSFIXUP_FLT 
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- Fixup floating reserved operand 


mcucurs = cucu NUOVO N NOOOCUCUCUCUC cucucucucucy Nu UN 
oooo Ooo COooooooooooeoo oOo OOOoOOoOooOooO Oooooo co Oo 
© << 
aQaeaeaeae ea @aweaecacaecoararca <= «= i. 4. 4. 4 4. 4 eeeero = <« 
DOCK MBDIMNMODO VOT TF OR- UN WT WDOOWMMODOTu *e ee OUU ADVRK NNO We FMA OCW 
MOODY LOAOOOSO—-COOUUMM WIN £ M~TFOWMU UcOwIN & & & Us NOOSOTMWNT FTMOOCOOOM ow 
BwOMNUOUINADCUMODOOQOOOMVUUNNIAIN VVUINOLVOe € # F UNMMVUOOMMUMMIMOOOOOo-oM 
&eOOOOCOCOOOOOSOOOSOOSOOOSOOSOOOOSOOOSOOSOOSOSLSSS # # ee SOSOOSOSOSOSOSOSOSOOOSOOSOSOSOOSSOS 
KOOOCOCOSOOSOOSOSOSOSOSOSOSSSSSSSOSSSSSLUSSSO £« « &§ SOSOSOSOSOSSSSSSOOSOSSOSOOSSS 
&wOOOCOCOOOOOOSOOSOOSOOSOOSOSOSOOSSOSOSSOSOSS4.9900 # # ee SGOSOOSOSOSSOOSOSOOOSOOSOSOSOSSOooS 
&LOOOOCOOOSOOSSSSOSOSOSOOSOOSOSSOSSOSOSSSLUSSS £« « ee SOSOOSOSOSOSSSOSSSOSOSSOOSSSS 
LOOOOOCOCOCOSOOOCOCOSOSOSSOSSOSSSSSSSLOSOS # # &e§ COSOSOOOOSOOSOOSOOOOOSOSSSO 
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_DECR 
=INCR 
AUTO-INCR_DEF 
_STACKT 

DISPL 
=OPERAND 
OPERANDX 


Symbol table 
BAD 
BPT 
BYTE 


LIBSFIXUP_FLT 
AUTO 
AUTO 


NEXT 
NEXT 


AP 


N 
- Fixup floating reserved operand 


psect syndpsis BSEp=1986 P9812 Eanes 
Feroceooeoooooeoeon+ 


: Psect synopsis ! 


ws ae Smeosunamaoad 


PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 “¢ 60 ( Q.) NOPIC USR CON ABS _ LCL NOSHR NOEXE 
S$ 00000000 1¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE 
LIBSCODE 0000041C ( 1052.) 02 ¢ 2.) PIC USR CON REL LCL SHR_- EXE 
fewer meme meaner on om me em $ 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0:00: 6.93 0:00:01.85 
Command processing 103 0:00:00.31 B08 :9E- 12 
Pass 1 233 0:00: 6°88 00:00:18.30 
Synbol table sort 0 Sb Ss 8 00:00:01.85 
169 00:00:01.40 00:00:06.12 
So erot table output 11 00:00:00.10 00:00:01.04 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 550 00:00:06.65 00:00:31.37 


The working set Limit was 1500 pages. 

37666 bytes_(74 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space on ecetes to hold 559 non-local and is local symbols. 
918 source lines were read in Pass 1, producing 15 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


fom enw ere son acounn nae we $ 


! Macro” Library statistics : 


Macro Library name 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 8 
561 GETS were required to define 8 macros. 


There were no errors, warnings or information messages. 


v04-00 Page 
L168 BF IXUPF .MAR; 1 


ne a moves BYTE 


OVEC BYTE 
RD NOURT NOVEC LONG 


) 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBFIXUPF/OBJ=OBJ$:LIBFIXUPF MSRC$:LIBF IXUPF /UPDATE=(ENHS:L IBF IXUPF ) 
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